home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / WARGAMES.ARC / FALKENS MAZE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.0 KB  |  480 lines
  1. 3 POKE53281,6:POKE53280,6:PRINT"":GOSUB5000:POKE792,207:POKE793,2
  2. 7 CLR:RESTORE
  3. 10 C0=0:C1=1:C2=2:C3=3:C4=4:C5=5:C6=6:C7=7:C8=8:C9=9
  4. 20 SC=1024:LL=40
  5. 30 DIMA(19,11),B(19,11)
  6. 40 A$(1)="NORTH":A$(2)="EAST":A$(3)="SOUTH":A$(4)="WEST"
  7. 60 SP$="                                               "
  8. 70 M1=C0:PRINT"[147]ENTER DIMENSIONS OF LABYRINTH:"
  9. 75 SAY"ENTER DIMENTIONS OF LABRINTH"
  10. 80 SAY"HOW WIDE"
  11. 81 INPUT"HOW WIDE";H
  12. 90 IFH=C0ORH>19THENPRINT"[145][145]";:GOTO80
  13. 100 SAY"HOW DEEP"
  14. 101 INPUT"HOW DEEP";V
  15. 110 IFV=C0ORV>10THENPRINT"[145][145]";:GOTO100
  16. 120 PRINT"NOW CREATING A"H"X"V"LABYRINTH
  17. 121 SAY"NOW CREATING A LABRINTH WITH THOSE DIMENTIONS":[151]53280,1
  18. 130 A[178]H[172]V[170]C1
  19. 140 Q[178]C0:Z[178]C0:X[178][181](H[172][187](H))[170]C1
  20. 150 AA[178]X
  21. 160 A(X,0)[178]C1:C[178]C2
  22. 170 R[178]X:S[178]C1:[137]240
  23. 180 [139]R[179][177]H[137]220
  24. 190 [139]S[179][177]V[137]210
  25. 200 R[178]C1:S[178]C1:[137]230
  26. 210 R[178]C1:S[178]S[170]C1:[137]230
  27. 220 R[178]R[170]C1
  28. 230 [139]A(R,S[171]C1)[178]C0[137]180
  29. 240 [139]R[171]C1[178]C0[137]560
  30. 250 [139]A(R[171]C1,S[171]C1)[137]560
  31. 260 [139]S[171]C1[178]C0[137]400
  32. 270 [139]A(R,S[171]C2)[137]400
  33. 280 [139]R[178]H[137]320
  34. 290 [139]A(R[170]C1,S[171]C1)[137]320
  35. 300 X[178][181](C3[172][187](C1))[170]C1
  36. 310 [145]X[137]870,910,950
  37. 320 [139]S[179][177]V[137]350
  38. 330 [139]Z[178]C1[137]380
  39. 340 Q[178]C1:[137]360
  40. 350 [139]A(R,S)[137]380
  41. 360 X[178][181](C3[172][187](C1))[170]C1
  42. 370 [145]X[137]870,910,1020
  43. 380 X[178][181](C2[172][187](C1))[170]C1
  44. 390 [137]370
  45. 400 [139]R[178]H[137]500
  46. 410 [139]A(R[170]C1,S[171]C1)[137]500
  47. 420 [139]S[179][177]V[137]450
  48. 430 [139]Z[178]C1[137]480
  49. 440 Q[178]C1:[137]460
  50. 450 [139]A(R,S)[137]480
  51. 460 X[178][181](C3[172][187](C1))[170]C1
  52. 470 [145]X[137]870,950,1020
  53. 480 X[178][181](C2[172][187](C1))[170]C1
  54. 490 [137]470
  55. 500 [139]S[179][177]V[137]530
  56. 510 [139]Z[178]C1[137]870
  57. 520 Q[178]C1:[137]540
  58. 530 [139]A(R,S)[137]870
  59. 540 X[178][181](C2[172][187](C1))[170]C1
  60. 550 [145]X[137]870,1020
  61. 560 [139]S[171]C1[178]C0[137]740
  62. 570 [139]A(R,S[171]C2)[137]740
  63. 580 [139]R[178]H[137]680
  64. 590 [139]A(R[170]C1,S[171]C1)[137]680
  65. 600 [139]S[179][177]V[137]630
  66. 610 [139]Z[178]C1[137]660
  67. 620 Q[178]C1:[137]640
  68. 630 [139]A(R,S)[137]660
  69. 640 X[178][181](C3[172][187](C1))[170]C1
  70. 650 [145]X[137]910,950,1020
  71. 660 X[178][181](C2[172][187](C1))[170]C1
  72. 670 [137]650
  73. 680 [139]S[179][177]V[137]710
  74. 690 [139]Z[178]C1[137]910
  75. 700 Q[178]C1:[137]720
  76. 710 [139]A(R,S)[137]910
  77. 720 X[178][181](C2[172][187](C1))[170]C1
  78. 730 [145]X[137]910,1020
  79. 740 [139]R[178]H[137]820
  80. 750 [139]A(R[170]C1,S[171]C1)[137]820
  81. 760 [139]S[179][177]V[137]790
  82. 770 [139]Z[178]C1[137]950
  83. 780 Q[178]C1:[137]800
  84. 790 [139]A(R,S)[137]950
  85. 800 X[178][181](C2[172][187](C1))[170]C1
  86. 810 [145]X[137]950,1020
  87. 820 [139]S[179][177]V[137]850
  88. 830 [139]Z[178]C1[137]180
  89. 840 Q[178]C1:[137]860
  90. 850 [139]A(R,S)[137]180
  91. 860 [137]1020
  92. 870 A(R[171]C1,S[171]C1)[178]C
  93. 880 C[178]C[170]C1:B(R[171]C1,S[171]C1)[178]C2:R[178]R[171]C1
  94. 890 [139]C[178]A[137]1120
  95. 900 Q[178]C0:[137]240
  96. 910 A(R,S[171]C2)[178]C
  97. 920 C[178]C[170]C1
  98. 930 B(R,S[171]C2)[178]C1:S[178]S[171]C1:[139]C[178]A[137]1120
  99. 940 Q[178]C0:[137]240
  100. 950 A(R[170]C1,S[171]C1)[178]C
  101. 960 C[178]C[170]C1:[139]B(R,S[171]C1)[178]C0[137]980
  102. 970 B(R,S[171]C1)[178]C3:[137]990
  103. 980 B(R,S[171]C1)[178]C2
  104. 990 R[178]R[170]C1
  105. 1000 [139]C[178]A[137]1120
  106. 1010 [137]560
  107. 1020 [139]Q[178]C1[137]1080
  108. 1030 A(R,S)[178]C:C[178]C[170]C1:[139]B(R,S[171]C1)[178]C0[137]1050
  109. 1040 B(R,S[171]C1)[178]C3:[137]1060
  110. 1050 B(R,S[171]C1)[178]C1
  111. 1060 S[178]S[170]C1:[139]C[178]A[137]1120
  112. 1070 [137]240
  113. 1080 Z[178]C1
  114. 1090 [139]B(R,S[171]C1)[178]C0[137]1110
  115. 1100 B(R,S[171]C1)[178]C3:Q[178]C0:[137]180
  116. 1110 B(R,S[171]C1)[178]C1:Q[178]C0:R[178]C1:S[178]C1:[137]230
  117. 1120 [139]Z[179][177]C1[167]X[178][181](H[172][187](C1))[170]C1:B(X,V[171]C1)[178]B(X,V[171]C1)[170]C1
  118. 1130 [141]1140:[151]SC[170]12[172]LL[170]18[171]H[170]LL[172]V[170]2[172]AA,30:[137]1410
  119. 1140 [143] PRINT MAZE ***
  120. 1150 M1[178]C1:[153]"LOAD";:[139]V[178]11[167]1170
  121. 1160 [129]I[178]C1[164]11[171]V:[153]:[130]
  122. 1170 [129]J[178]V[164]C1[169][171]C1:[153][166]19[171]H)
  123. 1180 [129]I[178]C1[164]H:[153]" ";
  124. 1190 [139]B(I,J[171]C1)[178]C0[137]1230
  125. 1200 [139]B(I,J[171]C1)[178]C2[137]1230
  126. 1210 [153]"STOP ";
  127. 1220 [137]1240
  128. 1230 [153]" ";
  129. 1240 [130]I
  130. 1250 [153]" ":[143] FINISH LINE
  131. 1260 [153][166]19[171]H)" ";
  132. 1270 [129]I[178]C1[164]H:[153]"STOP ";
  133. 1280 [139]B(I,J[171]C1)[179]C2[137]1310
  134. 1290 [153]"STOP ";
  135. 1300 [137]1320
  136. 1310 [153]" ";
  137. 1320 [130]I:[153]
  138. 1340 [130]J
  139. 1350 [153][166]19[171]H)"";:[129]I[178]C1[164]H
  140. 1360 [139]I[178]AA[137]1380
  141. 1370 [153]"  ";:[137]1390
  142. 1380 [153]" STOP ";
  143. 1390 [130]I
  144. 1400 [153]" ":[142]
  145. 1410 W[178]AA
  146. 1420 [129]J[178]C0[164]V[171]C1
  147. 1430 [129]I[178]C1[164]H
  148. 1440 [139]J[137]1470
  149. 1450 [139]I[178]W[167]A(I,J)[178](C3[171]B(I,J))[172]C2:[137]1490
  150. 1460 M[178]C1:[137]1480
  151. 1470 M[178](A(I,J[171]C1)[175]2)[173]C2
  152. 1480 A(I,J)[178](C3[171]B(I,J))[172]C2[170]M[172]C8
  153. 1490 [139]I[178]C1[167]M[178]C1:[137]1510
  154. 1500 M[178](A(I[171]C1,J)[175]4)[173]C4
  155. 1510 A(I,J)[178]A(I,J)[170]M
  156. 1520 [130]I
  157. 1530 [130]J
  158. 1540 [153]"LOAD";
  159. 1550 X[178]W:Y[178]C0:Z[178]C1:EL[178]C1:ER[178]C1
  160. 1560 [137]2260
  161. 1570 [153]"YOU CAN GIVE THE FOLLOWING INSTRUCTIONS:";
  162. 1571 SAY"YOU CAN GIVE THE FOLLOWING INSTRUCTIONS"
  163. 1580 [153]"FWAIT-MOVE FORWARDS ONE BLOCK;"
  164. 1581 SAY"F.  MOVE FORWARD ONE BLOCK"
  165. 1590 [153]"LWAIT-TURN LEFTCLOSE90 DEGREES;"
  166. 1591 SAY"L.  TURN LEFT 90 DEGREES"
  167. 1600 [153]"RWAIT-TURN RIGHTCLOSE90 DEGREES;"
  168. 1601 SAY"R.  TURN RIGHT 90 DEGREES"
  169. 1610 [153]"HWAIT-HELP!"
  170. 1611 SAY"H.  HELP"
  171. 1620 [142]
  172. 1630 [141]1140:[153]"YOU ARE HERE SPC(, FACING ";A$(Z):WW$[178]A$(Z)
  173. 1631 SAY"YOU ARE HERE FACING":SAYWW$
  174. 1640 [151]SC[170]LL[172]12[170]18[171]H[170]LL[172]V[170]2[172]X[171](LL[172]2)[172]Y,102
  175. 1650 [139]Y[177]V[137]4520
  176. 1660 [153]"WHAT NOW?";
  177. 1661 SAY"WHAT NOW"
  178. 1670 [161]Z$:[139]Z$[178]""[137]1670
  179. 1680 [139]Z$[178]"L"[137]1730
  180. 1690 [139]Z$[178]"R"[137]1750
  181. 1700 [139]Z$[178]"F"[137]2210
  182. 1710 [139]Z$[178]"H"[137]1630
  183. 1720 [137]1670
  184. 1730 Z[178]Z[171]C1:[139]Z[179]C1[167]Z[178]Z[170]C4
  185. 1740 [137]2260
  186. 1750 Z[178]Z[170]C1:[139]Z[177]C4[167]Z[178]Z[171]C4
  187. 1760 [137]2260
  188. 1770 [142]
  189. 1780 [139]Z[178]C1[167]A1[178]A[171]C1:B1[178]B[171]C1:[137]1830
  190. 1790 [139]Z[178]C2[175]B[179]V[167]A1[178]A:B1[178]B:[137]1830
  191. 1800 [139]Z[178]C3[167]A1[178]A[170]C1:B1[178]B[171]C1:[137]1830
  192. 1810 [139]Z[178]C4[175]B[177]C1[167]A1[178]A:B1[178]B[171]C2:[137]1830
  193. 1820 EL[178]C1:[142]
  194. 1830 F[178]A(A1,B1):[139]Z[178]C1[137]1850
  195. 1840 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
  196. 1850 EL[178](F[175]C2)[173]C2:[142]
  197. 1860 [139]Z[178]C1[167]A1[178]A[170]C1:B1[178]B[171]C1:[137]1910
  198. 1870 [139]Z[178]C2[175]B[177]C1[167]A1[178]A:B1[178]B[171]C2:[137]1910
  199. 1880 [139]Z[178]C3[167]A1[178]A[171]C1:B1[178]B[171]C1:[137]1910
  200. 1890 [139]Z[178]C4[175]B[179]V[167]A1[178]A:B1[178]B:[137]1910
  201. 1900 ER[178]C1:[142]
  202. 1910 F[178]A(A1,B1):[139]Z[178]C1[137]1930
  203. 1920 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
  204. 1930 ER[178](F[175]C2)[173]C2:[142]
  205. 1940 [139]B[178]C0[137]2020
  206. 1950 [139]B[177]V[167]E[178]C3:[142]
  207. 1960 F[178]A(A,B[171]C1):[139]Z[178]C1[137]1980
  208. 1970 [129]I[178]C2[164]Z:F[178](F[175]14)[173]C2[170](F[175]C1)[172]C8:[130]
  209. 1980 C[178]F[175]C1:D[178](F[175]4)[173]C4:E[178](F[175]2)[173]C2
  210. 1990 [139]C[178]C0[167][141]1780
  211. 2000 [139]D[178]C0[167][141]1860
  212. 2010 [142]
  213. 2020 C[178]C0:D[178]C0:E[178][171]C1
  214. 2030 [139]Z[179][177]1[137]2070
  215. 2040 E[178]C1
  216. 2050 [139]A[178]W[167]E[178]C0
  217. 2060 [142]
  218. 2070 [139]Z[178]C3[167]E[178]C2:[142]
  219. 2080 [139]Z[178]C2[175]A[178]H[167]E[178]C2:[142]
  220. 2090 [139]Z[178]C4[175]A[178]C1[167]E[178]C2:[142]
  221. 2100 [142]
  222. 2110 [139]E[177]C0[137]2170
  223. 2120 [139]Z[178]C1[167]B[178]B[170]C1:[142]
  224. 2130 [139]Z[178]C2[167]A[178]A[170]C1:[142]
  225. 2140 [139]Z[178]C3[167]B[178]B[171]C1:[142]
  226. 2150 [139]Z[178]C4[167]A[178]A[171]C1:[142]
  227. 2160 [153]"";:[142]
  228. 2170 [139]E[178]C0[137]2190
  229. 2180 [153]"";
  230. 2190 S[178]C1
  231. 2200 [142]
  232. 2210 A[178]X:B[178]Y
  233. 2220 [141]1940
  234. 2230 [141]2110
  235. 2240 X[178]A:Y[178]B
  236. 2250 [139]E[177]C0[137]1650
  237. 2260 A[178]X:B[178]Y
  238. 2270 [141]1940
  239. 2280 [143] DISPLAY 5 DEPTHS
  240. 2290 [129]T[178]C1[164]5
  241. 2300 [141]2410
  242. 2310 [139]E[167]T[178]C5:[137]2350
  243. 2320 [141]2110
  244. 2330 [141]1940
  245. 2340 [139]E[177]C1[167]T[178]C5:[137]2350
  246. 2350 [130]T
  247. 2360 [139]X[178]W[175]Y[178]C0[175]Z[178]C1[137]2400
  248. 2370 [139]X[179][177]W[175]Y[178]C0[175]Z[178]C1[167][141]2160:[153]"ONONONONEXTERNAL WALL":SAY"OUTSIDE WAL":[137]2390
  249. 2380 [137]2400
  250. 2390 [141]2160:[153]"ONONYOU'RE OUTSIDE!
  251. 2391 SAY"YOUR OUTSIDE"
  252. 2400 GOTO1650
  253. 2410 ONTGOTO2420,2780,3220,3710,4250
  254. 2420 REM DISPLAY DEPTH 1
  255. 2430 PRINT"[147]";
  256. 2440 IFE>C2THENRETURN
  257. 2450 IFE<C0ORE>C1THENGOSUB2180:RETURN
  258. 2460 FORI=C1TO21:IFC=C1THENPRINT"[167]";:GOTO2520
  259. 2470 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,C8);:GOTO2520
  260. 2480 IFEL=C1THENPRINT"[166][166][166][166][166][166][166][166]";:GOTO2520
  261. 2490 IFI=C2THENPRINT"[164][164][164][164][164][164][164][166]";:GOTO2520
  262. 2500 IFI<18THENPRINT"[166]";:GOTO2520
  263. 2510 PRINT"       [146][166]";
  264. 2520 IFE=C0THENPRINTSPC(22);:GOTO2550
  265. 2530 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,22);:GOTO2550
  266. 2540 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  267. 2550 IFD=C1THENPRINT"[165]":GOTO2610
  268. 2560 IFY=C0THENPRINT""MID$(W$,(IANDC1)+C1,C8):GOTO2610
  269. 2570 IFER=C1THENPRINT"[166][166][166][166][166][166][166][166]":GOTO2610
  270. 2580 IFI=C2THENPRINT"[166][164][164][164][164][164][164][164]":GOTO2610
  271. 2590 IFI<18THENPRINT"[166]":GOTO2610
  272. 2600 PRINT"[166]       "
  273. 2610 NEXT
  274. 2620 FORI=C1TOC3:IFC=C1OR(X=WANDY=C0)GOTO2680
  275. 2630 IFI<>C1THEN2650
  276. 2640 IFEL=C0THENPRINT"[163][163][163][163][163][163][163][206]";:GOTO2690
  277. 2650 PRINT""LEFT$(SP$,C8-I)"[206]"LEFT$(SP$,I-C1);
  278. 2660 IFI=C1GOTO2690
  279. 2670 GOTO2700
  280. 2680 PRINTSPC(C9-I)"[169]"LEFT$(SP$,I-C1);:IFI<>C1THEN2700
  281. 2690 IFE=C0THENPRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOTO2710
  282. 2700 PRINT"                      ";
  283. 2710 IFD=C1OR(X=WANDY=C0)GOTO2750
  284. 2720 IFI<>C1THEN2740
  285. 2730 IFER=C0THENPRINT"[205][163][163][163][163][163][163][163]":GOTO2760
  286. 2740 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C8-I):GOTO2760
  287. 2750 PRINT""LEFT$(SP$,I-C1)"[223]"
  288. 2760 NEXTI
  289. 2770 RETURN
  290. 2780 REM DISPLAY DEPTH 2
  291. 2790 PRINT"";:Z$=""
  292. 2800 FORI=C1TOC2:PRINTZ$;:IFC=C0GOTO2830
  293. 2810 PRINTSPC(I+C1)"[205]";SPC(C2-I);:GOTO2860
  294. 2820 PRINT"[205]";:GOTO2860
  295. 2830 IFI=C1THENPRINTSPC(C4):GOTO2860
  296. 2840 IFEL=C1THENPRINT"[164][164][164][164]";:GOTO2860
  297. 2850 PRINT"[164]";
  298. 2860 IFE=C0ORI=C1THENPRINTSPC(14);:GOTO2880
  299. 2870 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  300. 2880 IFD=C0GOTO2900
  301. 2890 PRINTSPC(C2-I)"[206]":GOTO2930
  302. 2900 IFI=C1THENPRINT:GOTO2930
  303. 2910 IFER=C1THENPRINT"[164][164][164][164]":GOTO2930
  304. 2920 PRINT"[164]"
  305. 2930 NEXT
  306. 2940 FORI=C1TO15:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO2990
  307. 2950 IFEL=C1THENPRINT"[166][166][166][166][146]";:GOTO2990
  308. 2960 IFI=C3THENPRINT"[164][164][164][166][146]";:GOTO2990
  309. 2970 IFI>12THENPRINT"   [166][146]";:GOTO2990
  310. 2980 PRINT"   [166][146]";
  311. 2990 IFE=C0THENPRINT"";:GOTO3010
  312. 3000 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][146]";
  313. 3010 IFD=C1THENPRINT"[165]":GOTO3060
  314. 3020 IFER=C1THENPRINT"[166][166][166][166]":GOTO3060
  315. 3030 IFI=C3THENPRINT"[166][146][164][164][164]":GOTO3060
  316. 3040 IFI>12THENPRINT"[166]   ":GOTO3060
  317. 3050 PRINT"[166]"
  318. 3060 NEXT
  319. 3070 FORI=C1TO4:PRINTZ$;:IFC=C1GOTO3120
  320. 3080 IFI<>C1GOTO3110
  321. 3090 IFEL=C0THENPRINT"[163][163][163][206]";:GOTO3130
  322. 3100 PRINT"   [206]";:GOTO3130
  323. 3110 PRINT""LEFT$(SP$,C4-I)"[206]"LEFT$(SP$,I-C1);:GOTO3140
  324. 3120 PRINTSPC(C4-I)"[169]"LEFT$(SP$,I-C1);:IFI<>C1THEN3140
  325. 3130 IFE=C0THENPRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:GOTO3150
  326. 3140 PRINT"              ";
  327. 3150 IFD=C1GOTO3190
  328. 3160 IFI<>C1THEN3180
  329. 3170 IFER=C0THENPRINT"[205][163][163][163]":GOTO3200
  330. 3180 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C4-I):GOTO3200
  331. 3190 PRINT""LEFT$(SP$,I-C1)"[223]":GOTO3200
  332. 3200 NEXTI
  333. 3210 RETURN
  334. 3220 REM DISPLAY DEPTH 3
  335. 3230 PRINT"";:Z$=Z$+""
  336. 3240 FORI=C1TO3:PRINTZ$;:IFC=C0GOTO3260
  337. 3250 PRINTSPC(I-C1)"[205]"SPC(C3-I);:GOTO3290
  338. 3260 IFI<C3THENPRINT"";:GOTO3290
  339. 3270 IFEL=C1THENPRINT"[164][164][164]";:GOTO3290
  340. 3280 PRINT"[164]";
  341. 3290 IFE=C0ORI<=C2THENPRINT"";:GOTO3310
  342. 3300 PRINT"[164][164][164][164][164][164][164][164]";
  343. 3310 IFD=C0GOTO3330
  344. 3320 PRINTSPC(3-I)"[206]":GOTO3360
  345. 3330 IFI<C3THENPRINT:GOTO3360
  346. 3340 IFER=C1THENPRINT"[164][164][164]":GOTO3360
  347. 3350 PRINT"[164]"
  348. 3360 NEXT
  349. 3370 FORI=C1TO9:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO3420
  350. 3380 IFEL=C1THENPRINT"[166][166][166]";:GOTO3420
  351. 3390 IFI=C2THENPRINT"[164][164][166]";:GOTO3420
  352. 3400 IFI>C7THENPRINT"  [146][166]";:GOTO3420
  353. 3410 PRINT"  [166]";
  354. 3420 IFE=C0THENPRINT"";:GOTO3440
  355. 3430 PRINT"[166][166][166][166][166][166][166][166]";
  356. 3440 IFD=C1THENPRINT"[165]":GOTO3490
  357. 3450 IFER=C1THENPRINT"[166][166][166]":GOTO3490
  358. 3460 IFI=C2THENPRINT"[166][164][164]":GOTO3490
  359. 3470 IFI>C7THENPRINT"[166]  [146]":GOTO3490
  360. 3480 PRINT"[166]"
  361. 3490 NEXT
  362. 3500 FORI=C1TO3:PRINTZ$;:IFC=C1GOTO3560
  363. 3510 IFI<>C1THEN3530
  364. 3520 IFEL=C0THENPRINT"[163][163][206]";:GOTO3570
  365. 3530 PRINT""LEFT$(SP$,C3-I)"[206]"LEFT$(SP$,I-C1);
  366. 3540 IFI=C1THEN3570
  367. 3550 GOTO3580
  368. 3560 PRINTSPC(C3-I)"[169]"LEFT$(SP$,I-C1);:GOTO3540
  369. 3570 IFE=C0THENPRINT"[163][163][163][163][163][163][163][163]";:GOTO3590
  370. 3580 PRINT"        ";
  371. 3590 IFD=C1GOTO3650
  372. 3600 IFI<>C1THEN3620
  373. 3610 IFER=C0THENPRINT"[205][163][163]":GOTO3690
  374. 3620 PRINT""LEFT$(SP$,I-C1)"[205]"LEFT$(SP$,C3-I):GOTO3690
  375. 3650 PRINT""LEFT$(SP$,I-C1)"[223]"
  376. 3690 NEXTI
  377. 3700 RETURN
  378. 3710 REM DISPLAY DEPTH 4
  379. 3720 PRINT"";:Z$=Z$+""
  380. 3730 FORI=C1TO2:PRINTZ$;:IFC=C0GOTO3770
  381. 3740 PRINTSPC(I-C1)"[205]"SPC(C2-I);:GOTO3810
  382. 3770 IFI=C1THENPRINT"";:GOTO3810
  383. 3790 IFEL=C1THENPRINT"[164][164]";:GOTO3810
  384. 3800 PRINT"[164]";
  385. 3810 IFE=C0ORI=C1THENPRINT"";:GOTO3830
  386. 3820 PRINT"[164][164][164][164]";
  387. 3830 IFD=C0GOTO3870
  388. 3840 IFI=C1THENPRINT"";
  389. 3850 PRINT"[206]":GOTO3910
  390. 3870 IFI=C1THENPRINT:GOTO3910
  391. 3890 IFER=C1THENPRINT"[164][164]":GOTO3910
  392. 3900 PRINT"[164]"
  393. 3910 NEXT
  394. 3920 FORI=C1TO5:PRINTZ$;:IFC=C1THENPRINT"[167]";:GOTO3970
  395. 3930 IFEL=C1THENPRINT"[166][166][146]";:GOTO3970
  396. 3940 IFI=C1THENPRINT"[164][166][146]";:GOTO3970
  397. 3950 IFI>4THENPRINT"[163][166][146]";:GOTO3970
  398. 3960 PRINT" [166][146]";
  399. 3970 IFE=C0THENPRINT"";:GOTO3990
  400. 3980 PRINT"[166][166][166][166][146]";
  401. 3990 IFD=C1THENPRINT"[165]":GOTO4040
  402. 4000 IFER=C1THENPRINT"[166][166]":GOTO4040
  403. 4010 IFI=C1THENPRINT"[166][146][164]":GOTO4040
  404. 4020 IFI>C4THENPRINT"[166] ":GOTO4040
  405. 4030 PRINT"[166]"
  406. 4040 NEXT
  407. 4050 FORI=C1TO2:PRINTZ$;:IFC=C1GOTO4100
  408. 4060 IFI<>C1THEN4080
  409. 4070 IFEL=C0THENPRINT"[163][206]";:GOTO4130
  410. 4080 PRINT""LEFT$(SP$,C2-I)"[206]"LEFT$(SP$,I-C1);
  411. 4085 IFI=C1THEN4130
  412. 4090 GOTO4140
  413. 4100 IFI=C1THENPRINT"";
  414. 4110 PRINT"[169]";
  415. 4120 IFI=C2THENPRINT" ";:GOTO4140
  416. 4130 IFE=C0THENPRINT"[163][163][163][163]";:GOTO4150
  417. 4140 PRINT"    ";
  418. 4150 IFD=C1GOTO4200
  419. 4160 IFI<>C1THEN4180
  420. 4170 IFER=C0THENPRINT"[205][163]":GOTO4230
  421. 4180 PRINT""LEFT$(SP$,I-C1)" "LEFT$(SP$,C2-I):GOTO4230
  422. 4200 PRINT"";:IFI=C2THENPRINT" ";
  423. 4210 PRINT"[223]"
  424. 4230 NEXTI
  425. 4240 RETURN
  426. 4250 REM DISPLAY DEPTH 5
  427. 4260 PRINT"";:Z$=Z$+""
  428. 4270 PRINTZ$;:IFC=C0GOTO4290
  429. 4280 PRINT"[205]";:GOTO4300
  430. 4290 PRINT"[164]";
  431. 4300 IFE=C0THENPRINT"";:GOTO4320
  432. 4310 PRINT"[164][164]";
  433. 4320 IFD=C0GOTO4340
  434. 4330 PRINT"[206]":GOTO4350
  435. 4340 PRINT"[164]"
  436. 4350 FORI=C1TO3:PRINTZ$;:IFC=C1GOTO4370
  437. 4360 PRINT"[166]";:GOTO4380
  438. 4370 PRINT"[167]";
  439. 4380 IFE=C0THENPRINT"";:GOTO4400
  440. 4390 PRINT"[166][166]";
  441. 4400 IFD=C0THENPRINT"[166]":GOTO4420
  442. 4410 PRINT"[165]"
  443. 4420 NEXT
  444. 4430 PRINTZ$;:IFC=C1GOTO4450
  445. 4440 PRINT"[206]";:GOTO4460
  446. 4450 PRINT"[169]";
  447. 4460 IFE=C1THENPRINT"  ";:GOTO4480
  448. 4470 PRINT"[163][163]";
  449. 4480 IFD=C1GOTO4500
  450. 4490 PRINT"[205]":GOTO4510
  451. 4500 PRINT"[223]"
  452. 4510 RETURN
  453. 4520 PRINT"[147]YOU'RE OUT!
  454. 4521 SAY"YOUR OUT"
  455. 4530 [139]M1[167][153]"":[137]4560
  456. 4540 [153]"LOADHERE IS THE MAZE":SAY"HERE IS THE MAZE":[141]1780
  457. 4550 [141]1140
  458. 4560 [151]792,207:[151]793,2:[151]53280,6:[151]53281,6
  459. 4561 [153]"LOAD  ANOTHER GAME PROFESSOR ?":SAY"ANOTHER GAME PROFESSOR"
  460. 4562 [161]Z$:[139]Z$[178]""[167]4562
  461. 4570 [139]Z$[178]"Y"[137]7
  462. 4580 [153]"LOAD  DO YOU WANT TO RETURN TO WAR GAMES ?":Z$[178]""
  463. 4581 SAY"DO YOU WANT TO RETURN TO WAR GAMES?"
  464. 4582 [161]Z$:[139]Z$[178]""[167]4582
  465. 4585 [139]Z$[178]"Y"[167]5500
  466. 4587 [153]"LOAD  BYE BYE":SAY"BYE BYE.":[128]
  467. 4590 [129]I[178]0[164]10:[129]J[178]0[164]19
  468. 4600 [153][201]("0"[170][202]([196](A(J,I)),2),2)"";:[130]J:[153]:[130]I
  469. 4610 [153]:[153]
  470. 4620 [129]J[178]V[171]1[164]0[169][171]1:[129]I[178]1[164]H
  471. 4630 [153][201]("0"[170][202]([196](B(I,J)),2),2)"";:[130]I:[153]:[130]J
  472. 5000 [153]"LOAD":[151]720,8:[151]739,52:[151]744,53:[151]749,54:[151]754,48:[151]758,169
  473. 5010 [139][194](49153)[179][177]187[167][153][163]8);"  LOADING SUB PROGRAMS  WAIT"
  474. 5020 [139][194](49153)[179][177]187[167][147]"SAM",8,1
  475. 5025 [151]743,169:[158]38144
  476. 5030 [151]52,125:[151]54,125:[151]56,125:]RE:]LI 1:]SP 68:]PI 68:]KN 150,150
  477. 5040 [142]
  478. 5500 [153]"LOADLOAD";[199](34);"WAR MENU";[199](34);",8,1"
  479. 5600 [151]631,19:[151]632,13:[151]633,82:[151]634,117:[151]635,13:[151]198,5:[128]
  480.